home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
T-COMAL Today
/
(k)t3.d64
/
showscreen.l
< prev
next >
Wrap
Text File
|
2007-02-28
|
188b
|
10 lines
9000 PROC SHOWSCREEN CLOSED
9010 VIC:=53248
9020 X:=(PEEK(VIC+17) MOD 32) DIV 16
9030 IF X THEN
9040 RETURN
9050 ELSE
9060 POKE VIC+17,PEEK(VIC+17)+16
9070 ENDIF
9080 ENDPROC SHOWSCREEN